package Flap::Core::Module;
use Flap qw/-b Flap::Core -s -w/;
use Filter::Util::Call;

sub _import {
    my($self, $pkg) = (shift, shift);
    Filter::Util::Call::real_import(bless(\(my $f = 0), __PACKAGE__), $pkg, 0);
}

sub filter {
    ${$_[0]} ||= $Flap::G{module}->{(caller(1))[6]} = 1;
    my $st = filter_read();
    s/->\s*SUPER::(\w+)(\s*\()?/"->Flap::Core::Include::SUPER('$1'".($2 ? ',' : ')')/eg if $st > 0;
    $st;
}

1;
